home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / OCETemplates.lisp < prev   
Encoding:
Text File  |  1994-09-12  |  85.8 KB  |  1,727 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; Translated from pascal interface files by Kane Biomedical Systems, May 1993
  4. ; 
  5. ; Created: Tuesday, February 23, 1993 at 6:15PM
  6. ;  OCETemplates.p
  7. ;  Pascal Interface to the Macintosh Libraries
  8. ; 
  9. ;   Copyright Apple Computer, Inc. 1990-1993
  10. ;   All rights reserved
  11. ; 
  12. ; ***********************************************************
  13.  
  14. ; $IFC UNDEFINED UsingIncludes
  15. ; $SETC UsingIncludes:= 0
  16. ; $ENDC
  17.  
  18. ; $IFC NOT UsingIncludes
  19.  
  20. ; $ENDC
  21.  
  22. ; $IFC UNDEFINED UsingOCETemplates
  23. ; $SETC UsingOCETemplates:= 1
  24.  
  25. ; $I+
  26. ; $SETC OCETemplatesIncludes:= UsingIncludes
  27. ; $SETC UsingIncludes:= 1
  28.  
  29. ; $IFC UNDEFINED UsingTypes
  30.  
  31. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  32. ; $ENDC
  33.  
  34. ; $IFC UNDEFINED UsingEvents
  35.  
  36. (require-interface 'EVENTS)     ; $I $$Shell(PInterfaces)Events.p
  37. ; $ENDC
  38.  
  39. ; $IFC UNDEFINED UsingOCE
  40. ; $I OCE.p
  41. ; $ENDC
  42.  
  43. ; $IFC UNDEFINED UsingOCEStandardMail
  44. ; $I OCEStandardMail.p
  45. ; $ENDC
  46.  
  47. ; $SETC UsingIncludes:= OCETemplatesIncludes
  48.  
  49. ; **********************************************************************************************
  50. ; ******************************** Template Resource Constants: ********************************
  51. ; **********************************************************************************************
  52.  
  53. ;  Current versions of all the different template types: 
  54.  
  55. (defconstant $kDETAspectVersion -978)
  56. (defconstant $kDETInfoPageVersion -978)
  57. (defconstant $kDETKillerVersion -978)
  58. (defconstant $kDETForwarderVersion -978)
  59. (defconstant $kDETFileTypeVersion -978)
  60.  
  61. ;  "Normal" separation for template IDs within the file (this is just a suggestion; you can use whatever
  62. ;     separation you like, so LONGINT as two separate templates don't have overlapping resources): 
  63. (defconstant $kDETIDSep 250)
  64.  
  65. ;  A few predefined base IDs (again, just suggestions): 
  66. (defconstant $kDETFirstID 1000)
  67. (defconstant $kDETSecondID (+ 1000 #$KDETIDSEP))
  68. (defconstant $kDETThirdID (+ 1000 (* 2 #$KDETIDSEP)))
  69. (defconstant $kDETFourthID (+ 1000 (* 3 #$KDETIDSEP)))
  70. (defconstant $kDETFifthID (+ 1000 (* 4 #$KDETIDSEP)))
  71.  
  72. ;  All templates include the following resource fork resources:
  73. ;     resource ('rstr', id+kDETTemplateName) contains the name of the template 
  74.  
  75. (defconstant $kDETTemplateName 0)
  76.  
  77. ;  Aspect, info-pages, and forwarders include the following as well:
  78. ;     resource ('rstr', id+kDETRecordType) contains the type of record this applies to
  79. ;     resource ('rstr', id+kDETAttributeType) contains the type of attribute this applies to
  80. ;     resource ('detn', id+kDETAttributeValueTag) contains the tag of the attribute this applies to
  81. ; 
  82.  
  83. (defconstant $kDETRecordType 1)
  84. (defconstant $kDETAttributeType 2)
  85. (defconstant $kDETAttributeValueTag 3)
  86.  
  87. ;  ************************************ Aspects 
  88.  
  89. ;  In the case of aspects, property numbers and resource id offsets are the same. Therefore, some of the following
  90. ;     defines are used for resource offsets, some are used for dynamically generated properties, and some are used for
  91. ;     both (i.e., properties which may be dynamically generated, but if they aren't, then they're taken from the
  92. ;     resource). Resource types are given in all cases below; even if there is no actual resource (for example in
  93. ;     the case of kDETAspectName), it indicates the type for the dynamically generated property.
  94. ; 
  95. ;      Type    Offset                        Description
  96. ;      ----    ------                        -----------
  97. ;     'deta'    0                            Identifies the type of resource
  98. ;     'detc'    kDETCode                    Is the code resource, if any is used
  99. ;     'rstr'    kDETAspectName                Contains the name of the item (attribute main aspect only)
  100. ;     'rst#'    kDETAspectCategory            Contains the internal categories for the record type (main aspect only)
  101. ;     'rstr'    kDETAspectKind                Is the item kind to display (main aspect only)
  102. ;     'detn'    kDETAspectGender            Is the gender of this kind of object for internationalization (main aspect only)
  103. ;     'rstr'    kDETAspectWhatIs            Is string for balloon help when item is in sublist (main aspect only)
  104. ;     'ICN#'    kDETAspectMainBitmap
  105. ;     'icl8'    kDETAspectMainBitmap
  106. ;     'icl4'    kDETAspectMainBitmap
  107. ;     'ics#'    kDETAspectMainBitmap
  108. ;     'ics8'    kDETAspectMainBitmap
  109. ;     'ics4'    kDETAspectMainBitmap
  110. ;     'sicn'    kDETAspectMainBitmap        Is the icon suite to display for this item type (main aspect only)
  111. ;     'rst#'    kDETAspectBalloons            Is a list of strings for balloon help; for each item is an info-page, it's
  112. ;                                         property # times 2 is used as an index into this array; if the item is not editable,
  113. ;                                         then the property # times 2 plus 1 is used
  114. ;     'rstr'    kDETAspectNewMenuName        Is the string to be used for "New ..." in the Directories menu, if any
  115. ;     'rstr'    kDETAspectNewEntryName        Is the name to be used for new entries (with a digit appended if not unique)
  116. ;     'detb'    kDETAspectNewValue            Is the value to use when creating a new attribute value; the first four bytes
  117. ;                                         is the tag; the rest is the attribute value contents
  118. ;     'dett'    kDETAspectLookup            Is the attribute-to-property translation table
  119. ;     'rstr'    kDETAspectDragInString        Is a string describing the action of dragging into this aspect
  120. ;     'rst#'    kDETAspectRecordDragIn        Is a list of type pairs; in each pair, the first is the type of a record which
  121. ;                                         can be dragged into this aspect, and the second is the attribute type to store
  122. ;                                         the reference in
  123. ;     'rst#'    kDETAspectRecordCatDragIn    Is a list of category/attribute type pairs; in each pair, the first is the
  124. ;                                         category of records which can be dragged in, and the second is the type of
  125. ;                                         attribute to place the alias in
  126. ;     'rst#'    kDETAspectAttrDragIn        Is a list of type triples; in each triple, the first is the record type which can be
  127. ;                                         dragged from (or "=" for any), the second is the attribute type which can be dragged
  128. ;                                         in, and the third is the attribute type to store the new attribute in
  129. ;     'rst#'    kDETAspectDragOut            Is a list of attribute types which can be dragged out of this aspect
  130. ;     'detm'    kDETAspectViewMenu            Is a table to fill in the view menu from
  131. ;     'detp'    kDETAspectReverseSort        Is a table listing which properties to sort in reverse order
  132. ;     'ipcw'    kDETAspectInfoPageCustomWindow    Is a specification of a custom window size/placement & whether to use the
  133. ;                                             page-selector (main aspect only)
  134. ;                                             (note: this resource should not be used for normal info-pages)
  135. ;     'rst#'    kDETAspectExternalCategory    Contains the external (user-visible) names which correspond to the categories in
  136. ;                                         kDETAspectCategory; if this resource is not present, external names are taken from
  137. ;                                         another template; if no other template provides an external name for a given internal
  138. ;                                         category, the internal name is used as the external name (main aspect only)
  139. ; 
  140. ; 
  141.  
  142. (defconstant $kDETAspectCode 4)
  143. (defconstant $kDETAspectName 5)
  144. (defconstant $kDETAspectCategory 6)
  145. (defconstant $kDETAspectKind 7)
  146. (defconstant $kDETAspectGender 8)
  147. (defconstant $kDETAspectWhatIs 9)
  148. (defconstant $kDETAspectMainBitmap 10)
  149. (defconstant $kDETAspectBalloons 11)
  150. (defconstant $kDETAspectNewMenuName 12)
  151. (defconstant $kDETAspectNewEntryName 13)
  152. (defconstant $kDETAspectNewValue 14)
  153. (defconstant $kDETAspectLookup 15)
  154. (defconstant $kDETAspectDragInString 16)
  155. (defconstant $kDETAspectDragInVerb 17)
  156. (defconstant $kDETAspectDragInSummary 18)
  157. (defconstant $kDETAspectRecordDragIn 19)
  158. (defconstant $kDETAspectRecordCatDragIn 20)
  159. (defconstant $kDETAspectAttrDragIn 21)
  160. (defconstant $kDETAspectAttrDragOut 22)
  161. (defconstant $kDETAspectViewMenu 23)
  162. (defconstant $kDETAspectReverseSort 24)
  163. (defconstant $kDETAspectInfoPageCustomWindow 25)
  164. (defconstant $kDETAspectExternalCategory 26)
  165.  
  166. ;  Properties: 
  167.  
  168. ;  Each aspect has 250 attribute properties in this range: 
  169. (defconstant $kDETFirstLocalProperty 0)
  170. (defconstant $kDETLastLocalProperty (+ #$KDETFIRSTLOCALPROPERTY 249))
  171.  
  172. ;  Developers should use property numbers starting at this point: 
  173. (defconstant $kDETFirstDevProperty 40)
  174.  
  175. ;  Finally, the following range provide constant numeric properties for use in patterns and comparisons: 
  176. (defconstant $kDETFirstConstantProperty 250)
  177. (defconstant $kDETLastConstantProperty (+ #$KDETFIRSTCONSTANTPROPERTY 249))
  178.  
  179. ;  To convert a number into a constant property, add this: 
  180. (defconstant $kDETConstantProperty #$KDETFIRSTCONSTANTPROPERTY)
  181.  
  182. (defconstant $kDETZeroProperty (+ #$KDETCONSTANTPROPERTY 0))
  183. (defconstant $kDETOneProperty (+ #$KDETCONSTANTPROPERTY 1))
  184. (defconstant $kDETFalseProperty (+ #$KDETCONSTANTPROPERTY 0))
  185. (defconstant $kDETTrueProperty (+ #$KDETCONSTANTPROPERTY 1))
  186.  
  187. ;  The following apply to records, attributes, or aliases; they are the name and kind, as they appear in icon lists: 
  188. (defconstant $kDETPrName 3050)
  189. (defconstant $kDETPrKind 3051)
  190.  
  191. ;  Access mask properties: 
  192. (defconstant $kDETDNodeAccessMask 27574);  the DNode access mask 
  193. (defconstant $kDETRecordAccessMask 27575);  the record access mask 
  194. (defconstant $kDETAttributeAccessMask 27576);  the attribute access mask 
  195. (defconstant $kDETPrimaryMaskByBit 27577);  a set of sixteen properties to access all bits of the primary mask 
  196.  
  197. ;  See OCE documentation for details definitions of each of these bits: 
  198.  
  199. (defconstant $kDETPrimarySeeMask #$KDETPRIMARYMASKBYBIT)
  200. (defconstant $kDETPrimaryAddMask (+ #$KDETPRIMARYMASKBYBIT 1))
  201. (defconstant $kDETPrimaryDeleteMask (+ #$KDETPRIMARYMASKBYBIT 2))
  202. (defconstant $kDETPrimaryChangeMask (+ #$KDETPRIMARYMASKBYBIT 3))
  203. (defconstant $kDETPrimaryRenameMask (+ #$KDETPRIMARYMASKBYBIT 4))
  204. (defconstant $kDETPrimaryChangePrivsMask (+ #$KDETPRIMARYMASKBYBIT 5))
  205. (defconstant $kDETPrimaryTopMaskBit (+ #$KDETPRIMARYMASKBYBIT 15))
  206.  
  207. ;  Template numbers (can be used with kDETAspectTemplate and kDETInfoPageTemplate target selectors): 
  208. (defconstant $kDETAspectTemplateNumber 22051)
  209. (defconstant $kDETInfoPageTemplateNumber 22052)
  210.  
  211. ;  Property types are used to specify types of properties and conversions between types (negative numbers
  212. ;     are reserved for Apple; developer code resources can use positive numbers): 
  213. (defconstant $kDETPrTypeNone 0) ;  No type 
  214. (defconstant $kDETPrTypeNumber -1);  A number 
  215. (defconstant $kDETPrTypeString -2);  A STRING 
  216. (defconstant $kDETPrTypeBinary -3);  A binary block 
  217.  
  218. ;  ************************************ Info-pages 
  219.  
  220. ;  Info-pages include the following as well:
  221. ;     resource ('deti', id) identifies the type of resource; see below for details on the contents
  222. ;     resource ('rstr', id+kDETInfoPageName) is the name of the view to use in the page selection pop-up
  223. ;     resource ('rstr', id+kDETInfoPageMainViewAspect) is the name of the aspect to use with the main page view
  224. ;     resource ('rstr', id+kDETInfoPageMenuName) is the name of the directories menu ("Directories" if nil)
  225. ;     resource ('detm', id+kDETInfoPageMenuEntries) are menu entries to add after a gray line after the "New..." entries;
  226. ;                                                     use "-" for a gray line between entries
  227. ; 
  228.  
  229. (defconstant $kDETInfoPageName 4)
  230. (defconstant $kDETInfoPageMainViewAspect 5)
  231. (defconstant $kDETInfoPageMenuName 6)
  232. (defconstant $kDETInfoPageMenuEntries 7)
  233.  
  234. ;  ************************************ Views 
  235.  
  236. ;  Flags: 
  237.  
  238. (defconstant $kDETNoFlags #X0)  ; 0
  239. (defconstant $kDETEnabled #X1)  ; 1 << 0
  240. (defconstant $kDETHilightIfSelected #X1); 1 << 0
  241. (defconstant $kDETChoosable #X2); 1 << 1
  242. (defconstant $kDETNumericOnly #X8); 1 << 3
  243. (defconstant $kDETMultiLine #X10); 1 << 4
  244. (defconstant $kDETViewSendCommandToWindow #X20); 1 << 5
  245.  
  246. ;  The folowing flags make sense for views only 
  247.  
  248. ;  for EditText views only 
  249. (defconstant $kDETHidePenOnOpen #X100); 1 << 8
  250. (defconstant $kDETDynamicSize #X200); 1 << 9
  251. (defconstant $kDETAllowNoColons #X400); 1 << 10
  252.  
  253. ;     Sizes for icons4 
  254. (defconstant $kDETLargeIcon 0)
  255. (defconstant $kDETSmallIcon 1)
  256. (defconstant $kDETMiniIcon 2)
  257.  
  258. ;  Stolen from TextEdit.h 
  259. (defconstant $kDETLeft 0)
  260. (defconstant $kDETCenter 1)
  261. (defconstant $kDETRight -1)
  262. (defconstant $kDETForceLeft -2)
  263.  
  264. (defconstant $kDETUnused 0)
  265. (defconstant $kDETNoValue #X80000000)
  266. (defconstant $kDETNoSort 0)
  267. (defconstant $kDETNoProperty -1)
  268.  
  269. ;  Attributes for TViewBox - these are distinct from the flags above 
  270.  
  271. (defconstant $kDETBoxTakesContentClicks #X1); 1 << 0
  272. (defconstant $kDETBoxIsRounded #X2); 1 << 1
  273. (defconstant $kDETBoxIsGrayed #X4); 1 << 2
  274. (defconstant $kDETBoxIsInvisible #X8); 1 << 3
  275.  
  276. ;  The common font info 
  277. (defconstant $kDETApplicationFont 1)
  278. (defconstant $kDETApplicationFontSize 9)
  279. (defconstant $kDETAppFontLineHeight 12)
  280.  
  281. (defconstant $kDETSystemFont 0)
  282. (defconstant $kDETSystemFontSize 12)
  283. (defconstant $kDETSystemFontLineHeight 16)
  284.  
  285. (defconstant $kDETDefaultFont 1)
  286. (defconstant $kDETDefaultFontSize 9)
  287. (defconstant $kDETDefaultFontLineHeight 12)
  288.  
  289. ;  These were taken from QuickDraw.h (where they're enums and therefore unusable in resource definitions): 
  290. (defconstant $kDETNormal 0)
  291. (defconstant $kDETBold 1)
  292. (defconstant $kDETItalic 2)
  293. (defconstant $kDETUnderline 4)
  294. (defconstant $kDETOutline 8)
  295. (defconstant $kDETShadow #X10)
  296. (defconstant $kDETCondense #X20)
  297. (defconstant $kDETExtend #X40)
  298.  
  299. (defconstant $kDETIconStyle -3) ;  Normal for regular icons, italic for aliases 
  300.  
  301. ;  Views IDs: 
  302.  
  303. (defconstant $kDETCustomViewMenuID 10)
  304.  
  305. (defconstant $kDETChangeViewCommand :|view|);  Change the view; used especially in StaticCommandTextFromView sublist headers 
  306.  
  307. ;  Info-page window size: 
  308. (defconstant $kDETRecordInfoWindHeight 228)
  309. (defconstant $kDETRecordInfoWindWidth 400)
  310.  
  311. (defconstant $kDETAttributeInfoWindHeight 250)
  312. (defconstant $kDETAttributeInfoWindWidth 230)
  313.  
  314. ; kDETAppFontLineHeight             = 12;
  315.  
  316. ;  Note: The following defines set up an info-page layout which is for interim use only;
  317. ;     a more permanent layout will be defined later 
  318.  
  319. ;  Defines for subpages (template filled-in areas) 
  320. (defconstant $kDETSubpageTop 0)
  321. (defconstant $kDETSubpageLeft 64)
  322. (defconstant $kDETSubpageBottomInset 8)
  323. (defconstant $kDETSubpageRightInset 8)
  324.  
  325. ;  Page identifying icon 
  326. (defconstant $kDETSubpageIconTop 8)
  327. (defconstant $kDETSubpageIconLeft 8)
  328. (defconstant $kDETSubpageIconBottom (+ #$KDETSUBPAGEICONTOP 32))
  329. (defconstant $kDETSubpageIconRight (+ #$KDETSUBPAGEICONLEFT 32))
  330. ;  #define kDETSubpageIconRect        {kDETSubpageIconTop, kDETSubpageIconLeft, kDETSubpageIconBottom, kDETSubpageIconRight} 
  331.  
  332. ;  Page identifying label 
  333. (defconstant $kDETSubpageLabelTop (+ #$KDETSUBPAGEICONBOTTOM 8))
  334. (defconstant $kDETSubpageLabelLeft #$KDETSUBPAGEICONLEFT)
  335. (defconstant $kDETSubpageLabelBottom (+ #$KDETSUBPAGELABELTOP #$KDETAPPFONTLINEHEIGHT))
  336. (defconstant $kDETSubpageLabelRight (- #$KDETRECORDINFOWINDWIDTH 20))
  337. ;  #define kDETSubpageLabelRect    {kDETSubpageLabelTop, kDETSubpageLabelLeft, kDETSubpageLabelBottom, kDETSubpageLabelRight} 
  338.  
  339. ;  For pages with a single function, here's where the button goes 
  340. (defconstant $kDETSubpage1ButtonTop 120)
  341. (defconstant $kDETSubpage1ButtonLeft 110)
  342. (defconstant $kDETSubpage1ButtonBottom (+ #$KDETSUBPAGE1BUTTONTOP 50))
  343. (defconstant $kDETSubpage1ButtonRight (+ #$KDETSUBPAGE1BUTTONLEFT 200))
  344. ;  #define kDETSubpage1ButtonRect        {kDETSubpage1ButtonTop, kDETSubpage1ButtonLeft, kDETSubpage1ButtonBottom, kDETSubpage1ButtonRight} 
  345.  
  346. ;  Column placement for non-sublist placements 
  347. (defconstant $kDET1stColumnLeft (- #$KDETSUBPAGELEFT 10))
  348. (defconstant $kDET1stColumnRight (+ #$KDETSUBPAGELEFT 68))
  349. (defconstant $kDET2ndColumnLeft (+ #$KDET1STCOLUMNRIGHT 2))
  350. (defconstant $kDETRecord2ndColumnRight (- #$KDETRECORDINFOWINDWIDTH #$KDETSUBPAGERIGHTINSET))
  351. (defconstant $kDETAttribute2ndColumnRight (- #$KDETATTRIBUTEINFOWINDWIDTH #$KDETSUBPAGERIGHTINSET))
  352.  
  353. (defconstant $kDETColumnTop 38)
  354.  
  355. ;  Sublist placement 
  356. (defconstant $kDETSublistTop (+ #$KDETSUBPAGEICONBOTTOM (+ 16 (+ #$KDETAPPFONTLINEHEIGHT 4))))
  357. (defconstant $kDETSublistLeft 10)
  358. (defconstant $kDETSublistBottomInset 10)
  359. (defconstant $kDETSublistBottom (- #$KDETRECORDINFOWINDHEIGHT #$KDETSUBLISTBOTTOMINSET))
  360. (defconstant $kDETSublistRightInset 10)
  361. (defconstant $kDETSublistRight (- #$KDETRECORDINFOWINDWIDTH #$KDETSUBLISTRIGHTINSET))
  362.  
  363. ;  #define kDETSublistRect            { kDETSublistTop, kDETSublistLeft, kDETSublistBottom, kDETSublistRight } 
  364.  
  365. (defconstant $kDETSublistEntryTop (- #$KDETAPPFONTLINEHEIGHT/2))
  366. (defconstant $kDETSublistEntryBottom (+ #$KDETSUBLISTENTRYTOP #$KDETAPPFONTLINEHEIGHT))
  367.  
  368. ;  #define kDETSublistTitleBitmapRect            { kDETListTop-10, kDETListLeftInset+4, kDETListTop-4, kDETListLeftInset+4+16 } 
  369. (defconstant $kDETSublistTitleTop (- #$KDETSUBLISTTOP (- #$KDETAPPFONTLINEHEIGHT 2)))
  370. (defconstant $kDETSublistTitleBottom (- #$KDETSUBLISTTOP 2))
  371. (defconstant $kDETSublistIconColumnWidth 16)
  372. (defconstant $kDETSublistNameColumnWidth 200)
  373. (defconstant $kDETSublistKindColumnWidth 96)
  374. (defconstant $kDETSublistSpaceBetweenColumns 2)
  375. (defconstant $kDETSublistIconColumnLeft #$KDETSUBLISTSPACEBETWEENCOLUMNS)
  376. (defconstant $kDETSublistIconColumnRight (+ #$KDETSUBLISTICONCOLUMNLEFT #$KDETSUBLISTICONCOLUMNWIDTH))
  377. (defconstant $kDETSublistNameColumnLeft (+ #$KDETSUBLISTICONCOLUMNRIGHT #$KDETSUBLISTSPACEBETWEENCOLUMNS))
  378. (defconstant $kDETSublistNameColumnRight (+ #$KDETSUBLISTNAMECOLUMNLEFT #$KDETSUBLISTNAMECOLUMNWIDTH))
  379. (defconstant $kDETSublistKindColumnLeft (+ #$KDETSUBLISTNAMECOLUMNRIGHT 8));  need extra space because size is right-justified 
  380. (defconstant $kDETSublistKindColumnRight (+ #$KDETSUBLISTKINDCOLUMNLEFT #$KDETSUBLISTKINDCOLUMNWIDTH))
  381.  
  382. ;  ************************************ Killers 
  383.  
  384. ;  Killers include the following as well:
  385. ;     resource ('rst#', id+kDETKillerName) contains a list of names to be killed
  386. ; 
  387.  
  388. (defconstant $kDETKillerName 1)
  389.  
  390. ;  ************************************ Forwarders 
  391.  
  392. ;  Forwarders include the following as well:
  393. ;     resource ('rst#', id+kDETForwarderAspectNames) contains a list of names of aspects to forward to
  394. ;     resource ('rst#', id+kDETInfoPageNames) contains a list of names of info-pages to forward to
  395. ; 
  396.  
  397. (defconstant $kDETForwarderTemplateNames 4)
  398.  
  399. ; *********************************************************************************
  400. ; ******************************** Categories: ************************************
  401. ; *********************************************************************************
  402.  
  403. ;  Internal category names: 
  404.  
  405. (defconstant $kDETCategoryAllCategories "All Categories");  Everything in a specific category 
  406. (defconstant $kDETCategoryAllItems "All Items");  Everything in or out of a category 
  407. (defconstant $kDETCategoryAddressItems "Address Items");  Anything that can be used to address something 
  408. (defconstant $kDETCategoryPeople "People");  People 
  409.  
  410. ; *********************************************************************************
  411. ; ******************************** Code Resources: ********************************
  412. ; *********************************************************************************
  413.  
  414. ;  Target specification: 
  415.  
  416. ;  Values of DETTargetSelector 
  417. (defconstant $kDETSelf 0)       ;  The "current" item 
  418. (defconstant $kDETSelfOtherAspect 1);  Another aspect of the current item 
  419. (defconstant $kDETParent 2)     ;  The parent (i.e., the aspect we're in the sublist of, if any) of the current item 
  420. (defconstant $kDETSublistItem 3);  The ith item in the sublist 
  421. (defconstant $kDETSelectedSublistItem 4);  The ith selected item in the sublist 
  422. (defconstant $kDETDSSpec 5)     ;  The item specified by the packed DSSpec 
  423. (defconstant $kDETChainedTargetSpec 6);  A chain of specifications (apply each specification in the chain in sequence) 
  424. (defconstant $kDETAspectTemplate 7);  A specific aspect template (number itemNumber) 
  425. (defconstant $kDETInfoPageTemplate 8);  A specific info-page template (number itemNumber) 
  426. (defconstant $kDETHighSelector #XF000);  Force type to be INTEGER 
  427.  
  428. (def-mactype :DETTARGETSELECTOR (find-mactype :SIGNED-LONG))
  429.  
  430. (defrecord DETTargetSpecification 
  431.    (selector :SIGNED-LONG)      ;  How to pick the item (above: see) 
  432.    (aspectName (:POINTER :RSTRING));  The name of the aspect (kDETSelfOtherAspect, kDETParentOtherAspect,
  433. ;                                             kDETSublistItem, kDETSelectedSublistItem, kDETDSSpec); nil for main aspect 
  434.    (itemNumber :SIGNED-LONG)    ;  Sublist index (kDETSublistItem & kDETSelectedSublistItem & kDETAspectTemplate) 
  435.    (dsSpec (:POINTER :PACKEDDSSPEC));  DSSpec (only: kDETDSSpec) 
  436.    (next (:POINTER :DETTARGETSPECIFICATION));  Next item in chain (used only when original item was kChainedTargetSpec) 
  437.    )
  438.  
  439. ;  Code resource calls and call-backs both return an OSType:
  440. ;         kDETDidNotHandle (1) = function not completed, try something else (used by template to say "I didn't handle it");
  441. ;         noErr = function completed successfully;
  442. ;         any error = function failed, and here's why
  443. ; 
  444.  
  445. (defconstant $kDETDidNotHandle 1)
  446.  
  447. ;  Call-back functions:
  448. ; 
  449. ;         reqFunction                            Action
  450. ;         -----------                            ------
  451. ;         kDETcmdBeep                            Call SysBeep; useful for testing that a code resource's calls/call-backs are working at all
  452. ; 
  453. ;         kDETcmdBusy                            Put up watch cursor and switch processes; user events elicit a beep
  454. ; 
  455. ;         kDETcmdChangeCallFors                Change call-fors mask
  456. ; 
  457. ;         kDETcmdGetCommandSelectionCount        Get the command selection count (for calls which have a command selection list)
  458. ;         kDETcmdGetCommandItemN                Get command selection item n (for calls which have a command selection list)
  459. ; 
  460. ;         kDETcmdGetDSSpec                    Get the PackedDSSpec for this object
  461. ; 
  462. ;         kDETcmdGetTemplateFSSpec            Get the FSSpec of the file containing the template (should be seldom used)
  463. ; 
  464. ;         kDETcmdGetOpenEdit                    Return the property of the view being edited (if any)
  465. ;         kDETcmdCloseEdit                    Close the current edit
  466. ; 
  467. ;         kDETcmdGetPropertyType                Get a property type
  468. ; 
  469. ;         kDETcmdGetPropertyNumber            Get a property, number format
  470. ;         kDETcmdGetPropertyRString            Get a property, RString format
  471. ;         kDETcmdGetPropertyBinarySize        Get a property, binary, return size
  472. ;         kDETcmdGetPropertyBinary            Get a property, binary format
  473. ; 
  474. ;         kDETcmdGetPropertyChanged            Get a property changed flag
  475. ;         kDETcmdGetPropertyEditable            Get a property editable flag
  476. ; 
  477. ;         kDETcmdSetPropertyType                Set a property type
  478. ; 
  479. ;         kDETcmdSetPropertyNumber            Set a property, number format
  480. ;         kDETcmdSetPropertyRString            Set a property, RString format
  481. ;         kDETcmdSetPropertyBinary            Set a property, binary data & size
  482. ; 
  483. ;         kDETcmdSetPropertyChanged            Set a property changed flag
  484. ;         kDETcmdSetPropertyEditable            Set a property editable flag
  485. ; 
  486. ;         kDETcmdDirtyProperty                Dirty a property (redraw: force)
  487. ; 
  488. ;         kDETcmdSublistCount                    Return the count of the sublist items
  489. ;         kDETcmdSelectedSublistCount            Return the count of the selected sublist items
  490. ; 
  491. ;         kDETcmdRequestSync                    Request a sync-up of the aspect with the directory
  492. ; 
  493. ;         kDETcmdAddMenu                        Add to the end of a dynamic menu
  494. ;         kDETcmdRemoveMenu                    Remove a dynamic menu item
  495. ;         kDETcmdMenuItemRString                Get a dynamic menu item RString
  496. ; 
  497. ;         kDETcmdOpenDSSpec                    PackedDSSpec open (can also be done via AppleEvents -- this is a short-cut)
  498. ; 
  499. ;         kDETcmdAboutToTalk                    About to talk to user: bring us to front, disable watch cursor, etc.
  500. ; 
  501. ;         kDETcmdBreakAttribute                Break an attribute -- apply all applicable patterns to an attribute to generate properties
  502. ;         kDETcmdSaveProperty                    Force a save of a property -- apply all applicable patterns to write out the property
  503. ; 
  504. ;         kDETcmdGetCustomViewUserReference    Get custom view user reference (as given in .r file)
  505. ;         kDETcmdGetCustomViewBounds            Get custom view current bounds
  506. ; 
  507. ;         kDETcmdGetResource                    Get a resource from a template
  508. ; 
  509. ;         kDETcmdTemplateCounts                Return number of aspect and info-page templates in system
  510. ; 
  511. ;         kDETcmdUnloadTemplates                Flush templates
  512. ; 
  513.  
  514. ; Values of DETCallBackFunctions 
  515. (defconstant $kDETcmdSimpleCallback 0)
  516. (defconstant $kDETcmdBeep 1)
  517. (defconstant $kDETcmdBusy 2)
  518. (defconstant $kDETcmdChangeCallFors 3)
  519. (defconstant $kDETcmdGetCommandSelectionCount 4)
  520. (defconstant $kDETcmdGetCommandItemN 5)
  521. (defconstant $kDETcmdOpenDSSpec 6)
  522. (defconstant $kDETcmdAboutToTalk 7)
  523. (defconstant $kDETcmdUnloadTemplates 8)
  524. (defconstant $kDETcmdTemplateCounts 9)
  525.  
  526. (defconstant $kDETcmdTargetedCallback 1000)
  527. (defconstant $kDETcmdGetDSSpec 1001)
  528. (defconstant $kDETcmdSublistCount 1002)
  529. (defconstant $kDETcmdSelectedSublistCount 1003)
  530. (defconstant $kDETcmdRequestSync 1004)
  531. (defconstant $kDETcmdBreakAttribute 1005)
  532. (defconstant $kDETcmdGetTemplateFSSpec 1006)
  533. (defconstant $kDETcmdGetOpenEdit 1007)
  534. (defconstant $kDETcmdCloseEdit 1008)
  535.  
  536. (defconstant $kDETcmdPropertyCallback 2000)
  537. (defconstant $kDETcmdGetPropertyType 2001)
  538. (defconstant $kDETcmdGetPropertyNumber 2002)
  539. (defconstant $kDETcmdGetPropertyRString 2003)
  540. (defconstant $kDETcmdGetPropertyBinarySize 2004)
  541. (defconstant $kDETcmdGetPropertyBinary 2005)
  542. (defconstant $kDETcmdGetPropertyChanged 2006)
  543. (defconstant $kDETcmdGetPropertyEditable 2007)
  544. (defconstant $kDETcmdSetPropertyType 2008)
  545. (defconstant $kDETcmdSetPropertyNumber 2009)
  546. (defconstant $kDETcmdSetPropertyRString 2010)
  547. (defconstant $kDETcmdSetPropertyBinary 2011)
  548. (defconstant $kDETcmdSetPropertyChanged 2012)
  549. (defconstant $kDETcmdSetPropertyEditable 2013)
  550. (defconstant $kDETcmdDirtyProperty 2014)
  551. (defconstant $kDETcmdAddMenu 2015)
  552. (defconstant $kDETcmdRemoveMenu 2016)
  553. (defconstant $kDETcmdMenuItemRString 2017)
  554. (defconstant $kDETcmdSaveProperty 2018)
  555. (defconstant $kDETcmdGetCustomViewUserReference 2019)
  556. (defconstant $kDETcmdGetCustomViewBounds 2020)
  557. (defconstant $kDETcmdGetResource 2021)
  558.  
  559. (defconstant $kDETcmdHighCallback #XF0000000);  Force type to be LONGINT 
  560.  
  561. (def-mactype :DETCALLBACKFUNCTIONS (find-mactype :SIGNED-LONG))
  562.  
  563. (defrecord DETCallBackBlockHeader 
  564.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  565.    )
  566.  
  567. (defrecord DETCallBackBlockTargetedHeader 
  568.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  569.    (target :DETTARGETSPECIFICATION);  The target for the request 
  570.    )
  571.  
  572. (defrecord DETCallBackBlockPropertyHeader 
  573.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  574.    (target :DETTARGETSPECIFICATION);  The target for the request 
  575.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  576.    )
  577.  
  578. (%define-record :DETPROTOCALLBACKBLOCK (find-record-descriptor :DETCALLBACKBLOCKPROPERTYHEADER))
  579.  
  580. (%define-record :DETBEEPBLOCK (find-record-descriptor :DETCALLBACKBLOCKHEADER))
  581.  
  582. (%define-record :DETBUSYBLOCK (find-record-descriptor :DETCALLBACKBLOCKHEADER))
  583.  
  584. (defrecord DETChangeCallForsBlock 
  585.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  586.    (target :DETTARGETSPECIFICATION);  The target for the request 
  587.  
  588.    (newCallFors :SIGNED-LONG)   ;   -> New call-for mask 
  589.    )
  590.  
  591. (defrecord DETGetCommandSelectionCountBlock 
  592.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  593.  
  594.    (count :SIGNED-LONG)         ;  <-  The number of items in the command selection list 
  595.    )
  596.  
  597. ; Values of DETItemType 
  598. (defconstant $kDETHFSType 0)    ;  HFS item type 
  599. (defconstant $kDETDSType 1)     ;  Directory Service item type 
  600. (defconstant $kDETMailType 2)   ;  Mail (letter) item type 
  601. (defconstant $kDETMoverType 3)  ;  Sounds, fonts, etc., from inside a suitcase or system file 
  602. (defconstant $kDETLastItemType #XF0000000);  Force it to be a LONGINT (C & C++ seem to disagree about the definition of $F000) 
  603.  
  604. (def-mactype :DETITEMTYPE (find-mactype :SIGNED-LONG))
  605.  
  606. (defrecord (DETFSInfo :handle)  ;  FSSpec plus possibly interesting additional info 
  607.    (fileType :OSTYPE)           ;  File type 
  608.    (fileCreator :OSTYPE)        ;  File creator 
  609.    (fdFlags :SIGNED-INTEGER)    ;  Finder flags 
  610.    (FSSpec :FSSPEC)             ;  FSSpec 
  611.    )
  612.  
  613. (def-mactype :DETFSINFOPTR (find-mactype :POINTER))
  614.  
  615. (def-mactype :LETTERSPECPTR (find-mactype :POINTER))
  616. (def-mactype :LETTERSPECHANDLE (find-mactype :HANDLE))
  617.  
  618. ;  added by JBK to work around the pascal unnamed record problem 
  619. (defrecord DSRec 
  620.    (dsSpec (:HANDLE :PACKEDDSSPEC));  <-  DSSpec for item (caller must disposHandle() when done) 
  621.    (refNum :SIGNED-INTEGER)     ;  <-  Refnum for returned address 
  622.    (identity :SIGNED-LONG)      ;  <-  Identity for returned address 
  623.    )
  624.  
  625. (defrecord DETGetCommandItemNBlock 
  626.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  627.  
  628.    (itemNumber :SIGNED-LONG)    ;   -> Item number to retrieve (1-based) 
  629.    (itemType :SIGNED-LONG)      ;   -> Type of item to be returned (if we can interpret it as such) 
  630.    (:variant 
  631.       ((fsInfo (:HANDLE :DETFSINFO)));  <-  FSSpec & info for item (caller must disposHandle() when done) 
  632.       ((ds :DSREC))             ;  PATCHED BY JBK on 5/4/93 (see above) 
  633.  
  634.       ((dsSpec (:HANDLE :PACKEDDSSPEC)));  <-  DSSpec for item (caller must disposHandle() when done) 
  635.       ((ltrSpec (:HANDLE :LETTERSPEC)));  <-  Letter spec for item (caller must disposHandle() when done) 
  636.       ))
  637.  
  638. (defrecord DETGetDSSpecBlock 
  639.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  640.    (target :DETTARGETSPECIFICATION);  The target for the request 
  641.  
  642.    (dsSpec (:HANDLE :PACKEDDSSPEC));  <-  Handle with result (caller must disposHandle() when done) 
  643.    (refNum :SIGNED-INTEGER)     ;  <-  Refnum for address if PD 
  644.    (identity :SIGNED-LONG)      ;  <-  Identity for address 
  645.    (isAlias :BOOLEAN)           ;  <-  True if this entry is an alias 
  646.    (isRecordRef :BOOLEAN)       ;  <-  True if this entry is a record reference 
  647.    )
  648.  
  649. (defrecord DETGetTemplateFSSpecBlock 
  650.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  651.    (target :DETTARGETSPECIFICATION);  The target for the request 
  652.  
  653.    (FSSpec :FSSPEC)             ;  <-  FSSpec of template file 
  654.    (baseID :SIGNED-INTEGER)     ;  <-  Base ID of this template 
  655.    (aspectTemplateNumber :SIGNED-LONG);  <-  The template number for this aspect template 
  656.    )
  657.  
  658. (defrecord DETGetOpenEditBlock 
  659.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  660.    (target :DETTARGETSPECIFICATION);  The target for the request 
  661.  
  662.    (viewProperty :SIGNED-INTEGER);  <- The property of the view being edited (or kNoProperty if none) 
  663.    )
  664.  
  665. (defrecord DETCloseEditBlock 
  666.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  667.    (target :DETTARGETSPECIFICATION);  The target for the request 
  668.  
  669.    )
  670.  
  671. (defrecord DETGetPropertyTypeBlock 
  672.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  673.    (target :DETTARGETSPECIFICATION);  The target for the request 
  674.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  675.  
  676.    (propertyType :SIGNED-INTEGER);  <-  The type of the property 
  677.    )
  678.  
  679. (defrecord DETGetPropertyNumberBlock 
  680.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  681.    (target :DETTARGETSPECIFICATION);  The target for the request 
  682.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  683.  
  684.    (propertyValue :SIGNED-LONG) ;  <-  The value of the property 
  685.    )
  686.  
  687. (defrecord DETGetPropertyRStringBlock 
  688.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  689.    (target :DETTARGETSPECIFICATION);  The target for the request 
  690.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  691.  
  692.    (propertyValue (:HANDLE :RSTRING));  <-  A handle containing the property (as an RString) (caller must disposHandle() when done) 
  693.    )
  694.  
  695. (defrecord DETGetPropertyBinarySizeBlock 
  696.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  697.    (target :DETTARGETSPECIFICATION);  The target for the request 
  698.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  699.  
  700.    (propertyBinarySize :SIGNED-LONG);  <-  The size of the property as a binary block 
  701.    )
  702.  
  703. (defrecord DETGetPropertyBinaryBlock 
  704.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  705.    (target :DETTARGETSPECIFICATION);  The target for the request 
  706.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  707.  
  708.    (propertyValue :HANDLE)      ;  <-  Handle with the value of the property (caller must disposHandle() when done) 
  709.    )
  710.  
  711. (defrecord DETGetPropertyChangedBlock 
  712.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  713.    (target :DETTARGETSPECIFICATION);  The target for the request 
  714.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  715.  
  716.    (propertyChanged :BOOLEAN)   ;  <-  True if the property is marked as changed 
  717.    )
  718.  
  719. (defrecord DETGetPropertyEditableBlock 
  720.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  721.    (target :DETTARGETSPECIFICATION);  The target for the request 
  722.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  723.  
  724.    (propertyEditable :BOOLEAN)  ;  <-  True if the property can be edited by the user 
  725.    )
  726.  
  727. (defrecord DETSetPropertyTypeBlock 
  728.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  729.    (target :DETTARGETSPECIFICATION);  The target for the request 
  730.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  731.  
  732.    (newType :SIGNED-INTEGER)    ;   -> New type for property (just sets type, does not convert contents) 
  733.    )
  734.  
  735. (defrecord DETSetPropertyNumberBlock 
  736.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  737.    (target :DETTARGETSPECIFICATION);  The target for the request 
  738.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  739.  
  740.    (newValue :SIGNED-LONG)      ;   -> New value to set property to (and set type to number) 
  741.    )
  742.  
  743. (defrecord DETSetPropertyRStringBlock 
  744.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  745.    (target :DETTARGETSPECIFICATION);  The target for the request 
  746.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  747.  
  748.    (newValue (:POINTER :RSTRING));   -> New value to set property to (and set type to RString) 
  749.    )
  750.  
  751. (defrecord DETSetPropertyBinaryBlock 
  752.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  753.    (target :DETTARGETSPECIFICATION);  The target for the request 
  754.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  755.  
  756.    (newValue :POINTER)          ;   -> New value to set property to (and set type to binary) 
  757.    (newValueSize :SIGNED-LONG)  ;   -> Size of new value 
  758.    )
  759.  
  760. (defrecord DETSetPropertyChangedBlock 
  761.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  762.    (target :DETTARGETSPECIFICATION);  The target for the request 
  763.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  764.  
  765.    (propertyChanged :BOOLEAN)   ;   -> Value to set changed flag on property to 
  766.    )
  767.  
  768. (defrecord DETSetPropertyEditableBlock 
  769.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  770.    (target :DETTARGETSPECIFICATION);  The target for the request 
  771.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  772.  
  773.    (propertyEditable :BOOLEAN)  ;   -> Value to set editable flag on property to 
  774.    )
  775.  
  776. (%define-record :DETDIRTYPROPERTYBLOCK (find-record-descriptor :DETCALLBACKBLOCKPROPERTYHEADER))
  777.  
  778. (defrecord DETSublistCountBlock 
  779.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  780.    (target :DETTARGETSPECIFICATION);  The target for the request 
  781.  
  782.    (count :SIGNED-LONG)         ;  <-  The number of items in the current item's sublist 
  783.    )
  784.  
  785. (defrecord DETSelectedSublistCountBlock 
  786.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  787.    (target :DETTARGETSPECIFICATION);  The target for the request 
  788.  
  789.    (count :SIGNED-LONG)         ;  <-  The number of selected items in the current item's sublist 
  790.    )
  791.  
  792. (%define-record :DETREQUESTSYNCBLOCK (find-record-descriptor :DETCALLBACKBLOCKTARGETEDHEADER))
  793.  
  794. (defrecord DETAddMenuBlock 
  795.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  796.    (target :DETTARGETSPECIFICATION);  The target for the request 
  797.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  798.  
  799.    (name (:POINTER :RSTRING))   ;   -> Name of new menu item 
  800.    (parameter :SIGNED-LONG)     ;   -> Parameter to return when this item is selected 
  801.    (addAfter :SIGNED-LONG)      ;   -> Parameter of entry to add after, or -1 for add at end 
  802.    )
  803.  
  804. (defrecord DETRemoveMenuBlock 
  805.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  806.    (target :DETTARGETSPECIFICATION);  The target for the request 
  807.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  808.  
  809.    (itemToRemove :SIGNED-LONG)  ;   -> Parameter of menu item to remove 
  810.    )
  811.  
  812. (defrecord DETMenuItemRStringBlock 
  813.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  814.    (target :DETTARGETSPECIFICATION);  The target for the request 
  815.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  816.  
  817.    (itemParameter :SIGNED-LONG) ;   -> Parameter of menu item to return STRING for 
  818.    (rString (:HANDLE :RSTRING)) ;  <-  Handle with the RString (caller must disposHandle() when done) 
  819.    )
  820.  
  821. (defrecord DETOpenDSSpecBlock 
  822.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  823.  
  824.    (dsSpec (:POINTER :PACKEDDSSPEC));   -> DSSpec of object to be opened 
  825.    )
  826.  
  827. (%define-record :DETABOUTTOTALKBLOCK (find-record-descriptor :DETCALLBACKBLOCKHEADER))
  828.  
  829. (defrecord DETBreakAttributeBlock 
  830.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  831.    (target :DETTARGETSPECIFICATION);  The target for the request 
  832.  
  833.    (breakAttribute (:POINTER :ATTRIBUTE));   -> Attribute to parse 
  834.    )
  835.  
  836. (%define-record :DETSAVEPROPERTYBLOCK (find-record-descriptor :DETCALLBACKBLOCKPROPERTYHEADER))
  837.  
  838. (defrecord DETGetCustomViewUserReferenceBlock 
  839.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  840.    (target :DETTARGETSPECIFICATION);  The target for the request 
  841.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  842.  
  843.    (userReference :SIGNED-INTEGER);  <-  User reference value, as specified in the .r file 
  844.    )
  845.  
  846. (defrecord DETGetCustomViewBoundsBlock 
  847.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  848.    (target :DETTARGETSPECIFICATION);  The target for the request 
  849.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  850.  
  851.    (bounds :RECT)               ;  <-  Bounds of the view 
  852.    )
  853.  
  854. (defrecord DETGetResourceBlock 
  855.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  856.    (target :DETTARGETSPECIFICATION);  The target for the request 
  857.    (property :SIGNED-INTEGER)   ;  The property to apply the request to 
  858.  
  859.    (resourceType :OSTYPE)       ;   -> Resource type 
  860.    (theResource :HANDLE)        ;  <-  The resource handle (caller must dispose when done) 
  861.    )
  862.  
  863. (defrecord DETTemplateCounts 
  864.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  865.  
  866.    (aspectTemplateCount :SIGNED-LONG);  <-  Number of aspect templates in the system 
  867.    (infoPageTemplateCount :SIGNED-LONG);  <-  Number of info-page templates in the system 
  868.    )
  869.  
  870. (%define-record :DETUNLOADTEMPLATESBLOCK (find-record-descriptor :DETCALLBACKBLOCKHEADER))
  871.  
  872. (defrecord DETCallBackBlock 
  873.    (:variant 
  874.       ((protoCallBack :DETCALLBACKBLOCKPROPERTYHEADER))
  875.       ((beep :DETCALLBACKBLOCKHEADER))
  876.       ((busy :DETCALLBACKBLOCKHEADER))
  877.       ((changeCallFors :DETCHANGECALLFORSBLOCK))
  878.       ((getCommandSelectionCount :DETGETCOMMANDSELECTIONCOUNTBLOCK))
  879.       ((getCommandItemN :DETGETCOMMANDITEMNBLOCK))
  880.       ((getDSSpec :DETGETDSSPECBLOCK))
  881.       ((getTemplateFSSpec :DETGETTEMPLATEFSSPECBLOCK))
  882.       ((getOpenEdit :DETGETOPENEDITBLOCK))
  883.       ((closeEdit :DETCLOSEEDITBLOCK))
  884.       ((getPropertyType :DETGETPROPERTYTYPEBLOCK))
  885.       ((getPropertyNumber :DETGETPROPERTYNUMBERBLOCK))
  886.       ((getPropertyRString :DETGETPROPERTYRSTRINGBLOCK))
  887.       ((getPropertyBinarySize :DETGETPROPERTYBINARYSIZEBLOCK))
  888.       ((getPropertyBinary :DETGETPROPERTYBINARYBLOCK))
  889.       ((getPropertyChanged :DETGETPROPERTYCHANGEDBLOCK))
  890.       ((getPropertyEditable :DETGETPROPERTYEDITABLEBLOCK))
  891.       ((setPropertyType :DETSETPROPERTYTYPEBLOCK))
  892.       ((setPropertyNumber :DETSETPROPERTYNUMBERBLOCK))
  893.       ((setPropertyRString :DETSETPROPERTYRSTRINGBLOCK))
  894.       ((setPropertyBinary :DETSETPROPERTYBINARYBLOCK))
  895.       ((setPropertyChanged :DETSETPROPERTYCHANGEDBLOCK))
  896.       ((setPropertyEditable :DETSETPROPERTYEDITABLEBLOCK))
  897.       ((dirtyProperty :DETCALLBACKBLOCKPROPERTYHEADER))
  898.       ((sublistCount :DETSUBLISTCOUNTBLOCK))
  899.       ((selectedSublistCount :DETSELECTEDSUBLISTCOUNTBLOCK))
  900.       ((requestSync :DETCALLBACKBLOCKTARGETEDHEADER))
  901.       ((addMenu :DETADDMENUBLOCK))
  902.       ((removeMenu :DETREMOVEMENUBLOCK))
  903.       ((menuItemRString :DETMENUITEMRSTRINGBLOCK))
  904.       ((openDSSpec :DETOPENDSSPECBLOCK))
  905.       ((aboutToTalk :DETCALLBACKBLOCKHEADER))
  906.       ((breakAttribute :DETBREAKATTRIBUTEBLOCK))
  907.       ((saveProperty :DETCALLBACKBLOCKPROPERTYHEADER))
  908.       ((getCustomViewUserReference :DETGETCUSTOMVIEWUSERREFERENCEBLOCK))
  909.       ((getCustomViewBounds :DETGETCUSTOMVIEWBOUNDSBLOCK))
  910.       ((getResource :DETGETRESOURCEBLOCK))
  911.       ((templateCounts :DETTEMPLATECOUNTS))
  912.       ((unloadTemplates :DETCALLBACKBLOCKHEADER))
  913.       ))
  914.  
  915. (def-mactype :DETCALLBACKBLOCKPTR (find-mactype :POINTER))
  916.  
  917. (def-mactype :DETCALLBACK (find-mactype :POINTER))
  918. ;  FUNCTION DETCallBack(
  919. ;         callBlockPtr: ^DETCallBlock, DETCallBackBlockPtr callBackBlockPtr): OSErr;
  920.  
  921. ;  Call functions:
  922. ; 
  923. ;         reqFunction                        Action
  924. ;         -----------                        ------
  925. ;         kDETcmdInit                        Called once when template is first loaded (good time to allocate private data); returns call-for list
  926. ;         kDETcmdExit                        Called once when template is freed (good time to free private data)
  927. ; 
  928. ;         kDETcmdInstanceInit                Called once when instance of template is started (good time to allocate private instance data)
  929. ;         kDETcmdInstanceExit                Called once when instance is ended (good time to free private instance data)
  930. ; 
  931. ;         kDETcmdIdle                        Called periodically during idle times
  932. ; 
  933. ;         kDETcmdPropertyCommand            Command received in the property number range (usually means a button's been pushed)
  934. ; 
  935. ;         kDETcmdControlEnabled            Called to determine if a control is enabled
  936. ;         kDETcmdMaximumTextLength        Return maximum size for text form of property
  937. ; 
  938. ;         kDETcmdViewListChanged            Called when the window view-list (list of enabled views) has changed
  939. ; 
  940. ;         kDETcmdPropertyDirtied            Property dirtied, need to redraw
  941. ; 
  942. ;         kDETcmdValidateSave                Validate save: about to save info-page, return noErr (1: or) if it's OK to do so
  943. ; 
  944. ;         kDETcmdDropQuery                Drop query: return the appropriate operation for this drag; ask destination
  945. ;         kDETcmdDropMeQuery                Drop query: return the appropriate operation for this drag; ask dropee
  946. ; 
  947. ;         kDETcmdAttributeCreation        New attribute creation about to occur; this gives the template chance to modify
  948. ;                                         the value that's about to be created
  949. ;         kDETcmdAttributeNew                Attribute value new (return 1 to let normal new processing occur)
  950. ;         kDETcmdAttributeChange            Attribute value change (return 1 to let normal change processing occur)
  951. ;         kDETcmdAttributeDelete            Attribute value delete (return 1 to let normal deletion occur); sent to the
  952. ;                                         main aspect of the attribute that's about to be deleted
  953. ; 
  954. ;         kDETcmdPatternIn                Code resource pattern element on reading in an attribute or property
  955. ;         kDETcmdPatternOut                Code resource pattern element on writing out an attribute or property
  956. ; 
  957. ;         kDETcmdShouldSync                Check if the code resource wants to force a sync (update data from directory)
  958. ;         kDETcmdDoSync                    Give code resource a chance to sync (read in and break all attributes)
  959. ; 
  960. ;         kDETcmdOpenSelf                    Self open
  961. ; 
  962. ;         kDETcmdConvertToNumber            Convert template-defined property type to number
  963. ;         kDETcmdConvertToRString            Convert template-defined property type to RString
  964. ;         kDETcmdConvertFromNumber        Convert from number to template-defined property type
  965. ;         kDETcmdConvertFromRString        Convert from RString to template-defined property type
  966. ; 
  967. ;         kDETcmdCustomViewDraw            Custom view draw
  968. ;         kDETcmdCustomViewMouseDown        Custom view mouse down
  969. ;         kDETcmdCustomViewKeyPress        Custom view key press
  970. ;         kDETcmdCustomViewPaste            Custom view paste
  971. ; 
  972. ;         kDETcmdCustomMenuSelected        Custom menu selected
  973. ;         kDETcmdCustomMenuEnabled        Custom menu enabled
  974. ; 
  975. ;         kDETcmdDynamicForwarders        Return a list of dynamically created forwarders
  976. ;         kDETcmdDynamicResource            Return a dynamically created resource
  977. ; 
  978.  
  979. ;  Values of DETCallFunctions 
  980. (defconstant $kDETcmdSimpleCall 0)
  981. (defconstant $kDETcmdInit 1)
  982. (defconstant $kDETcmdExit 2)
  983. (defconstant $kDETcmdAttributeCreation 3)
  984. (defconstant $kDETcmdDynamicForwarders 4)
  985.  
  986. (defconstant $kDETcmdTargetedCall 1000)
  987. (defconstant $kDETcmdInstanceInit 1001)
  988. (defconstant $kDETcmdInstanceExit 1002)
  989. (defconstant $kDETcmdIdle 1003)
  990. (defconstant $kDETcmdViewListChanged 1004)
  991. (defconstant $kDETcmdValidateSave 1005)
  992. (defconstant $kDETcmdDropQuery 1006)
  993. (defconstant $kDETcmdDropMeQuery 1007)
  994. (defconstant $kDETcmdAttributeNew 1008)
  995. (defconstant $kDETcmdAttributeChange 1009)
  996. (defconstant $kDETcmdOpenSelf 1010)
  997. (defconstant $kDETcmdDynamicResource 1011)
  998. (defconstant $kDETcmdAttributeDelete 1012)
  999. (defconstant $kDETcmdShouldSync 1013)
  1000. (defconstant $kDETcmdDoSync 1014)
  1001.  
  1002. (defconstant $kDETcmdPropertyCall 2000)
  1003. (defconstant $kDETcmdPropertyCommand 2001)
  1004. (defconstant $kDETcmdControlEnabled 2002)
  1005. (defconstant $kDETcmdMaximumTextLength 2003)
  1006. (defconstant $kDETcmdPropertyDirtied 2004)
  1007. (defconstant $kDETcmdPatternIn 2005)
  1008. (defconstant $kDETcmdPatternOut 2006)
  1009. (defconstant $kDETcmdConvertToNumber 2007)
  1010. (defconstant $kDETcmdConvertToRString 2008)
  1011. (defconstant $kDETcmdConvertFromNumber 2009)
  1012. (defconstant $kDETcmdConvertFromRString 2010)
  1013. (defconstant $kDETcmdCustomViewDraw 2011)
  1014. (defconstant $kDETcmdCustomViewMouseDown 2012)
  1015. (defconstant $kDETcmdCustomViewKeyPress 2013)
  1016. (defconstant $kDETcmdCustomMenuSelected 2014)
  1017. (defconstant $kDETcmdCustomMenuEnabled 2015)
  1018. (defconstant $kDETcmdCustomViewPaste 2016)
  1019.  
  1020. (defconstant $kDETcmdHighCall #XF0000000)
  1021.  
  1022. (def-mactype :DETCALLFUNCTIONS (find-mactype :SIGNED-LONG))
  1023.  
  1024. (defrecord DETCallBlockHeader 
  1025.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1026.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1027. ;                                             common to all invocations of code resource) 
  1028.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1029. ;                                             code resource) 
  1030.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1031.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1032.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1033.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1034.    )
  1035.  
  1036. (defrecord DETCallBlockPropertyHeader 
  1037.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1038.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1039. ;                                             common to all invocations of code resource) 
  1040.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1041. ;                                             code resource) 
  1042.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1043.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1044.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1045.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1046.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1047.    )
  1048.  
  1049. (%define-record :DETPROTOCALLBLOCK (find-record-descriptor :DETCALLBLOCKPROPERTYHEADER))
  1050.  
  1051. (defrecord DETInitBlock 
  1052.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1053.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1054. ;                                             common to all invocations of code resource) 
  1055.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1056. ;                                             code resource) 
  1057.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1058.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1059.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1060.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1061.  
  1062.    (newCallFors :SIGNED-LONG)   ;  <-  New call-for mask 
  1063.    )
  1064.  
  1065. (%define-record :DETEXITBLOCK (find-record-descriptor :DETCALLBLOCKHEADER))
  1066.  
  1067. (%define-record :DETINSTANCEINITBLOCK (find-record-descriptor :DETCALLBLOCKHEADER))
  1068.  
  1069. (%define-record :DETINSTANCEEXITBLOCK (find-record-descriptor :DETCALLBLOCKHEADER))
  1070.  
  1071. (%define-record :DETINSTANCEIDLEBLOCK (find-record-descriptor :DETCALLBLOCKHEADER))
  1072.  
  1073. (defrecord DETPropertyCommandBlock 
  1074.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1075.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1076. ;                                             common to all invocations of code resource) 
  1077.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1078. ;                                             code resource) 
  1079.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1080.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1081.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1082.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1083.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1084.  
  1085.    (parameter :SIGNED-LONG)     ;   -> Parameter of command 
  1086.    )
  1087.  
  1088. (defrecord DETControlEnabledBlock 
  1089.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1090.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1091. ;                                             common to all invocations of code resource) 
  1092.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1093. ;                                             code resource) 
  1094.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1095.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1096.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1097.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1098.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1099.  
  1100.    (isEnabled :BOOLEAN)         ;  <-  Return true if the control should be enabled 
  1101.    )
  1102.  
  1103. (defrecord DETMaximumTextLengthBlock 
  1104.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1105.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1106. ;                                             common to all invocations of code resource) 
  1107.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1108. ;                                             code resource) 
  1109.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1110.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1111.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1112.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1113.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1114.  
  1115.    (maxSize :SIGNED-LONG)       ;  <-  Return the maximum size of the property as a text STRING 
  1116.    )
  1117.  
  1118. (%define-record :DETVIEWLISTCHANGEDBLOCK (find-record-descriptor :DETCALLBLOCKHEADER))
  1119.  
  1120. (%define-record :DETPROPERTYDIRTIEDBLOCK (find-record-descriptor :DETCALLBLOCKPROPERTYHEADER))
  1121.  
  1122. (defrecord DETValidateSaveBlock 
  1123.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1124.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1125. ;                                             common to all invocations of code resource) 
  1126.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1127. ;                                             code resource) 
  1128.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1129.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1130.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1131.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1132.  
  1133.    (errorString (:HANDLE :RSTRING));  <-  Handle with error STRING if validation fails (callee must allocate handle, DE will DisposHandle() it) 
  1134.    )
  1135.  
  1136. ;  Valid commandIDs for DETDropQueryBlock and DETDropMeQueryBlock (in addition to property numbers): 
  1137.  
  1138. (defconstant $kDETDoNothing :|xxx0|)
  1139. (defconstant $kDETMove :|move|)
  1140. (defconstant $kDETDrag :|drag|)
  1141. (defconstant $kDETAlias :|alis|)
  1142.  
  1143. (defrecord DETDropQueryBlock 
  1144.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1145.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1146. ;                                             common to all invocations of code resource) 
  1147.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1148. ;                                             code resource) 
  1149.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1150.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1151.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1152.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1153.  
  1154.    (modifiers :SIGNED-INTEGER)  ;   -> Modifiers at drop time (option/control/command/shift keys) 
  1155.    (commandID :SIGNED-LONG)     ;  <-> Command ID (aeDoNothing, aeMove, aeCopy, aeAlias, or a property number) 
  1156.    (destinationType :ATTRIBUTETYPE);  <-> Type to convert attribute to 
  1157.    (copyToHFS :BOOLEAN)         ;  <-  If true, object should be copied to HFS before being operated on, and deleted after 
  1158.    )
  1159.  
  1160. (defrecord DETDropMeQueryBlock 
  1161.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1162.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1163. ;                                             common to all invocations of code resource) 
  1164.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1165. ;                                             code resource) 
  1166.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1167.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1168.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1169.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1170.  
  1171.    (modifiers :SIGNED-INTEGER)  ;   -> Modifiers at drop time (option/control/command/shift keys) 
  1172.    (commandID :SIGNED-LONG)     ;  <-> Command ID (aeDoNothing, aeMove, aeCopy, aeAlias, or a property number) 
  1173.    (destinationType :ATTRIBUTETYPE);  <-> Type to convert attribute to 
  1174.    (copyToHFS :BOOLEAN)         ;  <-  If true, object should be copied to HFS before being operated on, and deleted after 
  1175.    )
  1176.  
  1177. (defrecord DETAttributeCreationBlock 
  1178.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1179.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1180. ;                                             common to all invocations of code resource) 
  1181.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1182. ;                                             code resource) 
  1183.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1184.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1185.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1186.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1187.  
  1188.    (parent (:POINTER :PACKEDDSSPEC));   -> The object within which the creation will occur 
  1189.    (refNum :SIGNED-INTEGER)     ;   -> Refnum for returned address (DSSpecs in PDs only) 
  1190.    (identity :SIGNED-LONG)      ;   -> The identity we're browsing as in the parent object 
  1191.    (attrType :ATTRIBUTETYPE)    ;  <-> The type of the attribute being created 
  1192.    (attrTag :OSTYPE)            ;  <-> The tag of the attribute being created 
  1193.    (value :HANDLE)              ;  <-> The value to write (pre-allocated, resize as needed) 
  1194.    )
  1195.  
  1196. (defrecord DETAttributeNewBlock 
  1197.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1198.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1199. ;                                             common to all invocations of code resource) 
  1200.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1201. ;                                             code resource) 
  1202.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1203.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1204.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1205.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1206.  
  1207.    (parent (:POINTER :PACKEDDSSPEC));   -> The object within which the creation will occur 
  1208.    (refNum :SIGNED-INTEGER)     ;   -> Refnum for returned address (DSSpecs in PDs only) 
  1209.    (identity :SIGNED-LONG)      ;   -> The identity we're browsing as in the parent object 
  1210.    (attrType :ATTRIBUTETYPE)    ;  <-> The type of the attribute being created 
  1211.    (attrTag :OSTYPE)            ;  <-> The tag of the attribute being created 
  1212.    (value :HANDLE)              ;  <-> The value to write (pre-allocated, resize as needed) 
  1213.    )
  1214.  
  1215. (defrecord DETAttributeChangeBlock 
  1216.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1217.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1218. ;                                             common to all invocations of code resource) 
  1219.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1220. ;                                             code resource) 
  1221.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1222.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1223.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1224.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1225.  
  1226.    (parent (:POINTER :PACKEDDSSPEC));   -> The object within which the creation will occur 
  1227.    (refNum :SIGNED-INTEGER)     ;   -> Refnum for returned address (DSSpecs in PDs only) 
  1228.    (identity :SIGNED-LONG)      ;   -> The identity we're browsing as in the parent object 
  1229.    (attrType :ATTRIBUTETYPE)    ;  <-> The type of the attribute being changed 
  1230.    (attrTag :OSTYPE)            ;  <-> The tag of the attribute being changed 
  1231.    (attrCID :CREATIONID)        ;  <-> The CID of the attribute being changed 
  1232.    (value :HANDLE)              ;  <-> The value to write (pre-allocated, resize as needed) 
  1233.    (addAgain :BOOLEAN)          ;  <-  True if returned attribute should be added rather than changed (when returning 1) 
  1234.    )
  1235.  
  1236. (defrecord DETAttributeDeleteBlock 
  1237.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1238.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1239. ;                                             common to all invocations of code resource) 
  1240.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1241. ;                                             code resource) 
  1242.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1243.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1244.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1245.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1246.  
  1247.    (dsSpec (:POINTER :PACKEDDSSPEC));   -> The object within which the deletion will occur 
  1248.    (refNum :SIGNED-INTEGER)     ;   -> Refnum for returned address (DSSpecs in PDs only) 
  1249.    (identity :SIGNED-LONG)      ;   -> The identity we're browsing as 
  1250.    )
  1251.  
  1252. (defrecord DETShouldSyncBlock 
  1253.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1254.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1255. ;                                             common to all invocations of code resource) 
  1256.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1257. ;                                             code resource) 
  1258.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1259.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1260.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1261.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1262.  
  1263.    (shouldSync :BOOLEAN)        ;  <-  True if we should now sync with directory 
  1264.    )
  1265.  
  1266. (defrecord DETDoSyncBlock 
  1267.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1268.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1269. ;                                             common to all invocations of code resource) 
  1270.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1271. ;                                             code resource) 
  1272.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1273.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1274.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1275.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1276.    )
  1277.  
  1278. (defrecord DETPatternInBlock 
  1279.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1280.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1281. ;                                             common to all invocations of code resource) 
  1282.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1283. ;                                             code resource) 
  1284.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1285.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1286.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1287.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1288.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1289.  
  1290.    (elementType :SIGNED-LONG)   ;   -> Element type from pattern 
  1291.    (extra :SIGNED-LONG)         ;   -> Extra field from pattern 
  1292.    (attribute (:POINTER :ATTRIBUTE));   -> The complete attribute 
  1293.    (dataOffset :SIGNED-LONG)    ;   -> Offset to current (next) byte 
  1294.    (bitOffset :SIGNED-INTEGER)  ;   -> Bit offset (next bit ^is fData >> fBitOffset++) 
  1295.    )
  1296.  
  1297. (defrecord DETPatternOutBlock 
  1298.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1299.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1300. ;                                             common to all invocations of code resource) 
  1301.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1302. ;                                             code resource) 
  1303.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1304.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1305.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1306.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1307.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1308.  
  1309.    (elementType :SIGNED-LONG)   ;   -> Element type from pattern 
  1310.    (extra :SIGNED-LONG)         ;   -> Extra field from pattern 
  1311.    (attribute (:POINTER :ATTRIBUTE));   -> The attribute (minus the data portion) 
  1312.    (data :HANDLE)               ;   -> Data to be written (pre-allocated, resize and add at end) 
  1313.    (dataOffset :SIGNED-LONG)    ;   -> Offset to next byte to write 
  1314.    (bitOffset :SIGNED-INTEGER)  ;   -> Bit offset (zero: if; handle will need to be resized to one more byte before write) 
  1315.    )
  1316.  
  1317. (defrecord DETOpenSelfBlock 
  1318.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1319.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1320. ;                                             common to all invocations of code resource) 
  1321.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1322. ;                                             code resource) 
  1323.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1324.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1325.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1326.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1327.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1328.  
  1329.    (modifiers :SIGNED-INTEGER)  ;  -> Modifiers at open time (option/control/command/shift keys) 
  1330.    )
  1331.  
  1332. (defrecord DETConvertToNumberBlock 
  1333.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1334.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1335. ;                                             common to all invocations of code resource) 
  1336.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1337. ;                                             code resource) 
  1338.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1339.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1340.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1341.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1342.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1343.  
  1344.    (theValue :SIGNED-LONG)      ;  <-  The converted value to return 
  1345.    )
  1346.  
  1347. (defrecord DETConvertToRStringBlock 
  1348.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1349.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1350. ;                                             common to all invocations of code resource) 
  1351.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1352. ;                                             code resource) 
  1353.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1354.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1355.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1356.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1357.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1358.  
  1359.    (theValue (:HANDLE :RSTRING));  <-  A handle with the converted value (callee must allocate handle, DE will DisposHandle() it) 
  1360.    )
  1361.  
  1362. (defrecord DETConvertFromNumberBlock 
  1363.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1364.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1365. ;                                             common to all invocations of code resource) 
  1366.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1367. ;                                             code resource) 
  1368.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1369.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1370.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1371.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1372.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1373.  
  1374.    (theValue :SIGNED-LONG)      ;   -> The value to convert (result should be written direct to the property) 
  1375.    )
  1376.  
  1377. (defrecord DETConvertFromRStringBlock 
  1378.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1379.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1380. ;                                             common to all invocations of code resource) 
  1381.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1382. ;                                             code resource) 
  1383.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1384.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1385.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1386.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1387.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1388.  
  1389.    (theValue (:POINTER :RSTRING));   -> The value to convert (result should be written direct to the property) 
  1390.    )
  1391.  
  1392. (%define-record :DETCUSTOMVIEWDRAWBLOCK (find-record-descriptor :DETCALLBLOCKPROPERTYHEADER))
  1393.  
  1394. (defrecord DETCustomViewMouseDownBlock 
  1395.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1396.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1397. ;                                             common to all invocations of code resource) 
  1398.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1399. ;                                             code resource) 
  1400.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1401.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1402.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1403.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1404.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1405.  
  1406.    (theEvent (:POINTER :EVENTRECORD));   -> The original event record of the mouse-down 
  1407.    )
  1408.  
  1409. (defrecord DETCustomViewKeyPressBlock 
  1410.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1411.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1412. ;                                             common to all invocations of code resource) 
  1413.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1414. ;                                             code resource) 
  1415.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1416.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1417.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1418.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1419.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1420.  
  1421.    (theEvent (:POINTER :EVENTRECORD));   -> The original event record of the key-press 
  1422.    )
  1423.  
  1424. (defrecord DETCustomViewPasteBlock 
  1425.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1426.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1427. ;                                             common to all invocations of code resource) 
  1428.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1429. ;                                             code resource) 
  1430.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1431.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1432.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1433.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1434.    (property :SIGNED-INTEGER)   ;  The property number the call refers to 
  1435.  
  1436.    (modifiers :SIGNED-INTEGER)  ;  -> Modifiers at paste time (option/control/command/shift keys) 
  1437.    )
  1438.  
  1439. (defrecord DETCustomMenuSelectedBlock 
  1440.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1441.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1442. ;                                             common to all invocations of code resource) 
  1443.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1444. ;                                             code resource) 
  1445.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1446.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1447.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1448.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1449.  
  1450.    (menuTableParameter :SIGNED-INTEGER);   -> The "property" field from the custom menu table 
  1451.    )
  1452.  
  1453. (defrecord DETCustomMenuEnabledBlock 
  1454.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1455.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1456. ;                                             common to all invocations of code resource) 
  1457.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1458. ;                                             code resource) 
  1459.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1460.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1461.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1462.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1463.  
  1464.    (menuTableParameter :SIGNED-INTEGER);   -> The "property" field from the custom menu table 
  1465.    (enable :BOOLEAN)            ;  <-  Whether to enable the menu item 
  1466.    )
  1467.  
  1468. (defrecord DETForwarderListItem 
  1469.    (next (:POINTER :DETFORWARDERLISTPTR));  Pointer to next item, or nil 
  1470.    (attributeValueTag :OSTYPE)  ;  Tag of new templates (0 for none) 
  1471.    (rstrs :PACKEDPATHNAME)      ;  Record type (empty if none), attrbute type (empty if none),
  1472. ;                                             aspect names to forward to, and info-page names to forward to 
  1473.    )
  1474.  
  1475. (def-mactype :DETFORWARDERLISTPTR (find-mactype :POINTER))
  1476. (def-mactype :DETFORWARDERLISTHANDLE (find-mactype :HANDLE))
  1477.  
  1478. (defrecord DETDynamicForwardersBlock 
  1479.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1480.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1481. ;                                             common to all invocations of code resource) 
  1482.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1483. ;                                             code resource) 
  1484.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1485.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1486.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1487.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1488.  
  1489.    (forwarders (:HANDLE :DETFORWARDERLISTITEM));  <-  List of forwaders 
  1490.    )
  1491.  
  1492. (defrecord DETDynamicResourceBlock 
  1493.    (reqFunction :SIGNED-LONG)   ;  Requested function 
  1494.    (templatePrivate :SIGNED-LONG);  Private storage for use by code resource (stays for life of code resource,
  1495. ;                                             common to all invocations of code resource) 
  1496.    (instancePrivate :SIGNED-LONG);  Private storage for use by code resource (separate for each item using the
  1497. ;                                             code resource) 
  1498.    (callBack :POINTER)          ;  Pointer to call-back routine 
  1499.    (callBackPrivate :SIGNED-LONG);  Private data for the call-back routine 
  1500.    (target :DETTARGETSPECIFICATION);  The target (originator) of the call, for targeted and property calls 
  1501.    (targetIsMainAspect :BOOLEAN);  True if the target is the main aspect (even though it has a non-nil name) 
  1502.  
  1503.    (resourceType :OSTYPE)       ;   -> The resource type being requested 
  1504.    (propertyNumber :SIGNED-INTEGER);   -> The property number of the resource being requested 
  1505.    (resourceID :SIGNED-INTEGER) ;   -> The resource ID (base ID + property number) of the resource 
  1506.    (theResource :HANDLE)        ;  <-  The requested resource 
  1507.    )
  1508.  
  1509. (defrecord DETCallBlock 
  1510.    (:variant 
  1511.       ((protoCall :DETCALLBLOCKPROPERTYHEADER))
  1512.       ((init :DETINITBLOCK))
  1513.       ((exit :DETCALLBLOCKHEADER))
  1514.       ((instanceInit :DETCALLBLOCKHEADER))
  1515.       ((instanceExit :DETCALLBLOCKHEADER))
  1516.       ((instanceIdle :DETCALLBLOCKHEADER))
  1517.       ((propertyCommand :DETPROPERTYCOMMANDBLOCK))
  1518.       ((controlEnabled :DETCONTROLENABLEDBLOCK))
  1519.       ((maximumTextLength :DETMAXIMUMTEXTLENGTHBLOCK))
  1520.       ((viewListChanged :DETCALLBLOCKHEADER))
  1521.       ((propertyDirtied :DETCALLBLOCKPROPERTYHEADER))
  1522.       ((validateSave :DETVALIDATESAVEBLOCK))
  1523.       ((dropQuery :DETDROPQUERYBLOCK))
  1524.       ((dropMeQuery :DETDROPMEQUERYBLOCK))
  1525.       ((attributeCreationBlock :DETATTRIBUTECREATIONBLOCK))
  1526.       ((attributeNew :DETATTRIBUTENEWBLOCK))
  1527.       ((attributeChange :DETATTRIBUTECHANGEBLOCK))
  1528.       ((attributeDelete :DETATTRIBUTEDELETEBLOCK))
  1529.       ((patternIn :DETPATTERNINBLOCK))
  1530.       ((patternOut :DETPATTERNOUTBLOCK))
  1531.       ((shouldSync :DETSHOULDSYNCBLOCK))
  1532.       ((doSync :DETDOSYNCBLOCK))
  1533.       ((openSelf :DETOPENSELFBLOCK))
  1534.       ((convertToNumber :DETCONVERTTONUMBERBLOCK))
  1535.       ((convertToRString :DETCONVERTTORSTRINGBLOCK))
  1536.       ((convertFromNumber :DETCONVERTFROMNUMBERBLOCK))
  1537.       ((convertFromRString :DETCONVERTFROMRSTRINGBLOCK))
  1538.       ((customViewDraw :DETCALLBLOCKPROPERTYHEADER))
  1539.       ((customViewMouseDown :DETCUSTOMVIEWMOUSEDOWNBLOCK))
  1540.       ((customViewKeyPress :DETCUSTOMVIEWKEYPRESSBLOCK))
  1541.       ((customViewPaste :DETCUSTOMVIEWPASTEBLOCK))
  1542.       ((customMenuSelected :DETCUSTOMMENUSELECTEDBLOCK))
  1543.       ((customMenuEnabled :DETCUSTOMMENUENABLEDBLOCK))
  1544.       ((dynamicForwarders :DETDYNAMICFORWARDERSBLOCK))
  1545.       ((dynamicResource :DETDYNAMICRESOURCEBLOCK))
  1546.       ))
  1547.  
  1548. (def-mactype :DETCALLBLOCKPTR (find-mactype :POINTER))
  1549.  
  1550. ;  Call-for list: 
  1551.  
  1552. (defconstant $kDETCallForAnything 1);  Call at all 
  1553. (defconstant $kDETCallForIdle 2);  kDETcmdIdle 
  1554. (defconstant $kDETCallForCommands 4);  kDETcmdPropertyCommand, kDETcmdSelfOpen 
  1555. (defconstant $kDETCallForViewChanges 8);  kDETcmdControlEnabled, kDETcmdViewListChanged, kDETcmdPropertyDirtied, kDETcmdMaximumTextLength 
  1556. (defconstant $kDETCallForDrops #X10);  kDETcmdDropQuery, kDETcmdDropMeQuery 
  1557. (defconstant $kDETCallForAttributes #X20);  kDETcmdAttributeNew, kDETcmdAttributeChange 
  1558. (defconstant $kDETCallForValidation #X40);  kDETcmdValidateSave 
  1559. (defconstant $kDETCallForKeyPresses #X80);  kDETcmdCustomViewKeyPress and kDETcmdCustomViewPaste on all key-presses 
  1560. (defconstant $kDETCallForResources #X100);  kDETcmdDynamicResource 
  1561. (defconstant $kDETCallForSyncing #X200);  kDETcmdShouldSync, kDETcmdDoSync 
  1562. (defconstant $kDETCallForEscalation #X8000);  all calls escalated to the next level 
  1563.  
  1564. (defconstant $kDETCallForNothing 0);  none of the above 
  1565. (defconstant $kDETCallForEverything #XFFFFFFFF);  all of the above 
  1566.  
  1567. (def-mactype :DETCALL (find-mactype :POINTER));  FUNCTION DETCall(callBlockPtr: DETCallBlockPtr): OSErr;
  1568.  
  1569. ;  This following macro saves you from having to dig out the call-back pointer from the call block: 
  1570.  
  1571. ;  #define CallBackDET(callBlockPtr, callBackBlockPtr) ((*callBlockPtr->protoCall.callBack)(callBlockPtr, callBackBlockPtr)) 
  1572.  
  1573. ;  Errors specific to Directories Extension Templates 
  1574.  
  1575. ;  Note: This section will be moved to OCEErrors.h eventually 
  1576.  
  1577. ;  ************************************************************************************ 
  1578. ;  ********************************* SAM Definitions: ********************************* 
  1579. ;  ************************************************************************************ 
  1580.  
  1581. ;  SAM Developers should use property numbers starting at this point: 
  1582.  
  1583. (defconstant $kSAMFirstDevProperty (+ #$KDETFIRSTDEVPROPERTY 10))
  1584.  
  1585. ; 
  1586. ;     SAM templates have additional resources/properties that are required
  1587. ;     for interaction with the A.O.C.E. Connections control panel.
  1588. ;     
  1589. ;      Type    Offset                        Description
  1590. ;      ----    ------                        -----------
  1591. ;     'rstr'    kSAMAspectStatus            The string displayed as the slot's status
  1592. ;     'detn'    kSAMAspectCannotDelete        If 0, then the slot cannot be deleted
  1593. ;     'detn'    kSAMAspectServesDSAM        If 0, not a DSAM template, otherwise is a DSAM template
  1594. ;     'detn'    kSAMAspectServesMSAM        If 0, not an MSAM template, otherwise is an MSAM template
  1595. ;     'sami'    kSAMAspectSlotCreationInfo    The info required to create a slot record
  1596. ; 
  1597.  
  1598. (defconstant $kSAMAspectStatus (+ #$KDETFIRSTDEVPROPERTY 1))
  1599. (defconstant $kSAMAspectCannotDelete (+ #$KDETFIRSTDEVPROPERTY 2))
  1600. (defconstant $kSAMAspectServesDSAM (+ #$KDETFIRSTDEVPROPERTY 3))
  1601. (defconstant $kSAMAspectServesMSAM (+ #$KDETFIRSTDEVPROPERTY 4))
  1602. (defconstant $kSAMAspectSlotCreationInfo (+ #$KDETFIRSTDEVPROPERTY 5))
  1603.  
  1604. ;     The standard "Status" RStrings are stored in an rst# resource.
  1605. ;     Here is the resource ID and the indices into the resource 
  1606.  
  1607. (defconstant $kSAMStatusStrings -16523)
  1608. (defconstant $kSAMNotSetup 1)
  1609. (defconstant $kSAMActive 2)
  1610. (defconstant $kSAMInactive 3)
  1611.  
  1612. ;  ************************************************************************************** 
  1613. ;  ********************************* Admin Definitions: ********************************* 
  1614. ;  ************************************************************************************** 
  1615.  
  1616. (defconstant $kDETAdminVersion -978)
  1617.  
  1618. ; $ENDC                         ;  UsingOCETemplates 
  1619.  
  1620. ; $IFC NOT UsingIncludes
  1621.  
  1622. ; $ENDC
  1623.  
  1624. (export '($KDETADMINVERSION $KSAMINACTIVE $KSAMACTIVE $KSAMNOTSETUP
  1625.           $KSAMSTATUSSTRINGS $KSAMASPECTSLOTCREATIONINFO $KSAMASPECTSERVESMSAM
  1626.           $KSAMASPECTSERVESDSAM $KSAMASPECTCANNOTDELETE $KSAMASPECTSTATUS
  1627.           $KSAMFIRSTDEVPROPERTY $KDETCALLFOREVERYTHING $KDETCALLFORNOTHING
  1628.           $KDETCALLFORESCALATION $KDETCALLFORSYNCING $KDETCALLFORRESOURCES
  1629.           $KDETCALLFORKEYPRESSES $KDETCALLFORVALIDATION $KDETCALLFORATTRIBUTES
  1630.           $KDETCALLFORDROPS $KDETCALLFORVIEWCHANGES $KDETCALLFORCOMMANDS
  1631.           $KDETCALLFORIDLE $KDETCALLFORANYTHING $KDETALIAS $KDETDRAG $KDETMOVE
  1632.           $KDETDONOTHING $KDETCMDHIGHCALL $KDETCMDCUSTOMVIEWPASTE
  1633.           $KDETCMDCUSTOMMENUENABLED $KDETCMDCUSTOMMENUSELECTED
  1634.           $KDETCMDCUSTOMVIEWKEYPRESS $KDETCMDCUSTOMVIEWMOUSEDOWN
  1635.           $KDETCMDCUSTOMVIEWDRAW $KDETCMDCONVERTFROMRSTRING
  1636.           $KDETCMDCONVERTFROMNUMBER $KDETCMDCONVERTTORSTRING
  1637.           $KDETCMDCONVERTTONUMBER $KDETCMDPATTERNOUT $KDETCMDPATTERNIN
  1638.           $KDETCMDPROPERTYDIRTIED $KDETCMDMAXIMUMTEXTLENGTH
  1639.           $KDETCMDCONTROLENABLED $KDETCMDPROPERTYCOMMAND $KDETCMDPROPERTYCALL
  1640.           $KDETCMDDOSYNC $KDETCMDSHOULDSYNC $KDETCMDATTRIBUTEDELETE
  1641.           $KDETCMDDYNAMICRESOURCE $KDETCMDOPENSELF $KDETCMDATTRIBUTECHANGE
  1642.           $KDETCMDATTRIBUTENEW $KDETCMDDROPMEQUERY $KDETCMDDROPQUERY
  1643.           $KDETCMDVALIDATESAVE $KDETCMDVIEWLISTCHANGED $KDETCMDIDLE
  1644.           $KDETCMDINSTANCEEXIT $KDETCMDINSTANCEINIT $KDETCMDTARGETEDCALL
  1645.           $KDETCMDDYNAMICFORWARDERS $KDETCMDATTRIBUTECREATION $KDETCMDEXIT
  1646.           $KDETCMDINIT $KDETCMDSIMPLECALL $KDETLASTITEMTYPE $KDETMOVERTYPE
  1647.           $KDETMAILTYPE $KDETDSTYPE $KDETHFSTYPE $KDETCMDHIGHCALLBACK
  1648.           $KDETCMDGETRESOURCE $KDETCMDGETCUSTOMVIEWBOUNDS
  1649.           $KDETCMDGETCUSTOMVIEWUSERREFERENCE $KDETCMDSAVEPROPERTY
  1650.           $KDETCMDMENUITEMRSTRING $KDETCMDREMOVEMENU $KDETCMDADDMENU
  1651.           $KDETCMDDIRTYPROPERTY $KDETCMDSETPROPERTYEDITABLE
  1652.           $KDETCMDSETPROPERTYCHANGED $KDETCMDSETPROPERTYBINARY
  1653.           $KDETCMDSETPROPERTYRSTRING $KDETCMDSETPROPERTYNUMBER
  1654.           $KDETCMDSETPROPERTYTYPE $KDETCMDGETPROPERTYEDITABLE
  1655.           $KDETCMDGETPROPERTYCHANGED $KDETCMDGETPROPERTYBINARY
  1656.           $KDETCMDGETPROPERTYBINARYSIZE $KDETCMDGETPROPERTYRSTRING
  1657.           $KDETCMDGETPROPERTYNUMBER $KDETCMDGETPROPERTYTYPE
  1658.           $KDETCMDPROPERTYCALLBACK $KDETCMDCLOSEEDIT $KDETCMDGETOPENEDIT
  1659.           $KDETCMDGETTEMPLATEFSSPEC $KDETCMDBREAKATTRIBUTE $KDETCMDREQUESTSYNC
  1660.           $KDETCMDSELECTEDSUBLISTCOUNT $KDETCMDSUBLISTCOUNT $KDETCMDGETDSSPEC
  1661.           $KDETCMDTARGETEDCALLBACK $KDETCMDTEMPLATECOUNTS
  1662.           $KDETCMDUNLOADTEMPLATES $KDETCMDABOUTTOTALK $KDETCMDOPENDSSPEC
  1663.           $KDETCMDGETCOMMANDITEMN $KDETCMDGETCOMMANDSELECTIONCOUNT
  1664.           $KDETCMDCHANGECALLFORS $KDETCMDBUSY $KDETCMDBEEP
  1665.           $KDETCMDSIMPLECALLBACK $KDETDIDNOTHANDLE $KDETHIGHSELECTOR
  1666.           $KDETINFOPAGETEMPLATE $KDETASPECTTEMPLATE $KDETCHAINEDTARGETSPEC
  1667.           $KDETDSSPEC $KDETSELECTEDSUBLISTITEM $KDETSUBLISTITEM $KDETPARENT
  1668.           $KDETSELFOTHERASPECT $KDETSELF $KDETCATEGORYPEOPLE
  1669.           $KDETCATEGORYADDRESSITEMS $KDETCATEGORYALLITEMS
  1670.           $KDETCATEGORYALLCATEGORIES $KDETFORWARDERTEMPLATENAMES
  1671.           $KDETKILLERNAME $KDETSUBLISTKINDCOLUMNRIGHT
  1672.           $KDETSUBLISTKINDCOLUMNLEFT $KDETSUBLISTNAMECOLUMNRIGHT
  1673.           $KDETSUBLISTNAMECOLUMNLEFT $KDETSUBLISTICONCOLUMNRIGHT
  1674.           $KDETSUBLISTICONCOLUMNLEFT $KDETSUBLISTSPACEBETWEENCOLUMNS
  1675.           $KDETSUBLISTKINDCOLUMNWIDTH $KDETSUBLISTNAMECOLUMNWIDTH
  1676.           $KDETSUBLISTICONCOLUMNWIDTH $KDETSUBLISTTITLEBOTTOM
  1677.           $KDETSUBLISTTITLETOP $KDETSUBLISTENTRYBOTTOM $KDETSUBLISTENTRYTOP
  1678.           $KDETSUBLISTRIGHT $KDETSUBLISTRIGHTINSET $KDETSUBLISTBOTTOM
  1679.           $KDETSUBLISTBOTTOMINSET $KDETSUBLISTLEFT $KDETSUBLISTTOP
  1680.           $KDETCOLUMNTOP $KDETATTRIBUTE2NDCOLUMNRIGHT $KDETRECORD2NDCOLUMNRIGHT
  1681.           $KDET2NDCOLUMNLEFT $KDET1STCOLUMNRIGHT $KDET1STCOLUMNLEFT
  1682.           $KDETSUBPAGE1BUTTONRIGHT $KDETSUBPAGE1BUTTONBOTTOM
  1683.           $KDETSUBPAGE1BUTTONLEFT $KDETSUBPAGE1BUTTONTOP $KDETSUBPAGELABELRIGHT
  1684.           $KDETSUBPAGELABELBOTTOM $KDETSUBPAGELABELLEFT $KDETSUBPAGELABELTOP
  1685.           $KDETSUBPAGEICONRIGHT $KDETSUBPAGEICONBOTTOM $KDETSUBPAGEICONLEFT
  1686.           $KDETSUBPAGEICONTOP $KDETSUBPAGERIGHTINSET $KDETSUBPAGEBOTTOMINSET
  1687.           $KDETSUBPAGELEFT $KDETSUBPAGETOP $KDETATTRIBUTEINFOWINDWIDTH
  1688.           $KDETATTRIBUTEINFOWINDHEIGHT $KDETRECORDINFOWINDWIDTH
  1689.           $KDETRECORDINFOWINDHEIGHT $KDETCHANGEVIEWCOMMAND
  1690.           $KDETCUSTOMVIEWMENUID $KDETICONSTYLE $KDETEXTEND $KDETCONDENSE
  1691.           $KDETSHADOW $KDETOUTLINE $KDETUNDERLINE $KDETITALIC $KDETBOLD
  1692.           $KDETNORMAL $KDETDEFAULTFONTLINEHEIGHT $KDETDEFAULTFONTSIZE
  1693.           $KDETDEFAULTFONT $KDETSYSTEMFONTLINEHEIGHT $KDETSYSTEMFONTSIZE
  1694.           $KDETSYSTEMFONT $KDETAPPFONTLINEHEIGHT $KDETAPPLICATIONFONTSIZE
  1695.           $KDETAPPLICATIONFONT $KDETBOXISINVISIBLE $KDETBOXISGRAYED
  1696.           $KDETBOXISROUNDED $KDETBOXTAKESCONTENTCLICKS $KDETNOPROPERTY
  1697.           $KDETNOSORT $KDETNOVALUE $KDETUNUSED $KDETFORCELEFT $KDETRIGHT
  1698.           $KDETCENTER $KDETLEFT $KDETMINIICON $KDETSMALLICON $KDETLARGEICON
  1699.           $KDETALLOWNOCOLONS $KDETDYNAMICSIZE $KDETHIDEPENONOPEN
  1700.           $KDETVIEWSENDCOMMANDTOWINDOW $KDETMULTILINE $KDETNUMERICONLY
  1701.           $KDETCHOOSABLE $KDETHILIGHTIFSELECTED $KDETENABLED $KDETNOFLAGS
  1702.           $KDETINFOPAGEMENUENTRIES $KDETINFOPAGEMENUNAME
  1703.           $KDETINFOPAGEMAINVIEWASPECT $KDETINFOPAGENAME $KDETPRTYPEBINARY
  1704.           $KDETPRTYPESTRING $KDETPRTYPENUMBER $KDETPRTYPENONE
  1705.           $KDETINFOPAGETEMPLATENUMBER $KDETASPECTTEMPLATENUMBER
  1706.           $KDETPRIMARYTOPMASKBIT $KDETPRIMARYCHANGEPRIVSMASK
  1707.           $KDETPRIMARYRENAMEMASK $KDETPRIMARYCHANGEMASK $KDETPRIMARYDELETEMASK
  1708.           $KDETPRIMARYADDMASK $KDETPRIMARYSEEMASK $KDETPRIMARYMASKBYBIT
  1709.           $KDETATTRIBUTEACCESSMASK $KDETRECORDACCESSMASK $KDETDNODEACCESSMASK
  1710.           $KDETPRKIND $KDETPRNAME $KDETTRUEPROPERTY $KDETFALSEPROPERTY
  1711.           $KDETONEPROPERTY $KDETZEROPROPERTY $KDETCONSTANTPROPERTY
  1712.           $KDETLASTCONSTANTPROPERTY $KDETFIRSTCONSTANTPROPERTY
  1713.           $KDETFIRSTDEVPROPERTY $KDETLASTLOCALPROPERTY $KDETFIRSTLOCALPROPERTY
  1714.           $KDETASPECTEXTERNALCATEGORY $KDETASPECTINFOPAGECUSTOMWINDOW
  1715.           $KDETASPECTREVERSESORT $KDETASPECTVIEWMENU $KDETASPECTATTRDRAGOUT
  1716.           $KDETASPECTATTRDRAGIN $KDETASPECTRECORDCATDRAGIN
  1717.           $KDETASPECTRECORDDRAGIN $KDETASPECTDRAGINSUMMARY
  1718.           $KDETASPECTDRAGINVERB $KDETASPECTDRAGINSTRING $KDETASPECTLOOKUP
  1719.           $KDETASPECTNEWVALUE $KDETASPECTNEWENTRYNAME $KDETASPECTNEWMENUNAME
  1720.           $KDETASPECTBALLOONS $KDETASPECTMAINBITMAP $KDETASPECTWHATIS
  1721.           $KDETASPECTGENDER $KDETASPECTKIND $KDETASPECTCATEGORY $KDETASPECTNAME
  1722.           $KDETASPECTCODE $KDETATTRIBUTEVALUETAG $KDETATTRIBUTETYPE
  1723.           $KDETRECORDTYPE $KDETTEMPLATENAME $KDETFIFTHID $KDETFOURTHID
  1724.           $KDETTHIRDID $KDETSECONDID $KDETFIRSTID $KDETIDSEP
  1725.           $KDETFILETYPEVERSION $KDETFORWARDERVERSION $KDETKILLERVERSION
  1726.           $KDETINFOPAGEVERSION $KDETASPECTVERSION))
  1727. (provide-interface 'OCETemplates)